home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / kboot014.d64 / blankscreen.proc < prev    next >
Text File  |  2009-01-23  |  223b  |  11 lines
  1. 9000 //
  2. 9010 PROC BLANK'SCREEN(STATE) CLOSED
  3. 9020 MEM:=53265; NUM:=PEEK(MEM)
  4. 9030 NUM:=(NUM DIV 32)*32+(NUM MOD 16)
  5. 9040 IF STATE THEN
  6. 9050 POKE MEM,NUM
  7. 9060 ELSE 
  8. 9070 POKE MEM,NUM+16
  9. 9080 ENDIF 
  10. 9090 ENDPROC BLANK'SCREEN
  11.